RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFFRRRFFFRFR FRFRRRRRRRRRPRFFF 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFRFRRRFRRRFR FRRRRRRPRRPPR PPE 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFRRRFRRRRFRFR FPRRRRRRRRRR FFF 
RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 COO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN OOO OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRR = RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU NNN NNNNNN 000 FFF FFF 

RRR R UUU UUU NNN NNN 0O0G 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NN NNN 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NNN NNW 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU =~ NNN NNN 006000000 FFF FFF 


**F ] _E**]D**PAGCMP 
PPPPPPPP AAAAAA GGGGGGGG CCCCCCCC MM MM PPPPPPPP 5 
PPPPPPPP AAAAAA GGGGGGGG cccccccc MM MM PPPPPPPP 3 
op PP AA AA GG cc MMMM MMMM OPP PP 3 
pp PP AA AA GG cc MMMM MMMM) OPP PP $ 
PP PP AA AA GG cc MM MM OMM «OPP ad j H 
PP PP AA AA GG cc MM MM MM «OPP PP 
PPPPPPPP AA AA GG cc MM MM PPPPPPPP 
PPPPPPPP AA AA GG cc MM MM PPPPPPPP 
PP AAAAAAAAAA GG GGGGGG CC MM MM PP 
PP AAAAAAAAAA GG GGGGGG CC MM MM PP 
pp AA AA GG GG CC MM MM PP cana 
PP AA cc MM MM PP aimed | 
Ob AA AA GGGGGG CCCCCCCC MM MM PP see 
PP AA GGGGGG CCCCCCCC MM MM PP aut 
LL IIIIII SSSSSSSS | 
LL IIIII1 SSSSSSSS 
LL I] SS 
LL Il ss 
LL I] SS 
LL I] SS | 
LL II SSSSSS 
LL I] SSSSSS 
LL I] SS 
LL I] S$ 
LL I] SS 
LL I] SS 
LLLLLLLLLL IIIIII SSSSSSSS 
LLLLLLLLLL III] SSSSSSSS 
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MODULE PAGCMP ( : 
IDENT = ‘'V04-000' 

ZBLISS32C 
ADDRESSING MODE (EXTERNAL=LONG_RELATIVE ,NONEXTERNAL=LONG_RELATIVE) 
d= 


vv 


BEGIN 


RRR REAR R EAA EEE ET ERAT AREEAA RARER Eee REA EEe 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
ie DIGITAL EQUIPMENT CORPORATION, - MAYNARD. MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


* 
® 
® 
® 
. a 
:* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND gh * 
:* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
:* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS” SOF TWARE OR ANY OTHER * 
:* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
:* QTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
!® TRANSFERRED. * 
H ® 
:* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
:* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
!® CORPORATION. * 

J 

® 

® 

® 

a7 

* 


ie DIGITAL ASSUMES NO RESPONSIB 


IBILIT 
t® SOFTWARE ON EQUIPMENT WHICH IS 


Y FOR THE USE OR > * prema OF ITS 
NOT SUPPLIED BY DIGITAL 
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BS BWANAWAAAWIAI AID POPONNUPONPONINND 2 2 2 SP 


0028 1 is | 
1 } 
008 siinieeail lieedebebeeitneiiacicuitale iceman i mea a 
00 : 
003 ie4 | 
003 FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 
B28 ABSTRACT: Routines for comparing page numbers. 
003 : 
Bos ENVIRONMENT: Transportable 
004 i AUTHOR: R.W.Friday CREATION DATE: February, 1979 | 
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Revision History 


004 
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XSBTTL "Revision History’ 

| MODIFIED BY: 

005 KAD00005 Keith Dawson 07-Mar-1983 
i 


Global edit of all modules. Updated module names, idents, 
copyright dates. Changed require files to BLISS library. 
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Module Level Declarations 
ZSBITL ‘Module Level Declarations’ 


. TABLE OF CONTENTS: 
FORWARD ROUTINE 
DSPEQL 


PAGEQL, 
PAGFND: 


i INCLUDE FILES: 


UIRE "REQ:RNODEF'; 


1B 
EQ 
IF DSRPLUS ZTKEN 
IBRARY ‘REQ:DPLLIB'; 
EL 

1B 

FI 


SE 
RARY ‘REQ:DSRLIB'; 


EQUATED SYMBOLS: 


OWN STORAGE: 


RARY ‘NXPORT:XPORT'; 


EXTERNAL REFERENCES: 


1 
18-Sep-19 4 
14-Sep-1984 


AX-11 Bliss-32 V4.0-742 
RUNOFF .SRCJPAGCMP.BLI;1 


La definitions 


! DSRPLUS BLISS Library 
! DSR BLISS Library 


PAGCMP 


“1984 01:24:54  YAX=11_BLiss-32 v4.0-74 | 
04-000 Routine DPSEQL 1982 93:07:37 OLRCIPAGCMP OL 44 Pege 43] 


RUNOFF .SRCJPAGCMP.BLI; 


91 1 XSBTTL "Routine DPSEQL' 
4 1 GLOBAL ROUTINE DSPEQL (PAGE_A, PAGE_B) = 
94 14 
+ FUNCTIONAL DESCRIPTION: 
97 : DSPEQL compares the display characteristics of PAGE_A and PAGE _B 
a8 and returns TRUE if they are equal. Otherwise it returns FALSE. 
| FORMAL PARAMETERS: 
PAGE_A and PAGE_6 are the pages whose display characterstics are to be compared. 
{ IMPLICIT INPUTS: None 
{ IMPLICIT OUTPUTS: None | 
i ROUTINE VALUE: | 
36 1 | COMPLETION CODES: | 
; Returns TRUE if the display characteristics are the same, else FALSE. 
lee 
BEGIN 
MAP 


PAGE_A : REF PAGE_DEFINITION, 
PAGE_B : REF PAGE_DEFINITION; 


Fpl hth CSCT_PAGE_D3 NEQ .PAGE_B CSCT_PAGE_DJ 
'Page counters don't match. 
RETURN FALSE; 


‘Next tr subpage hy | code. 
IF (.PAGE_A CSCT_SUB_PAGE] NEQ 0) 
AND (7PAGE_B bSCT_suB PAGE] NEQ 0) 
(.PAGE-A CSCT-SUBPG_D] NEQ .PAGE_B CSCT_SUBPG_DJ) 


‘Subpages with different display characterstics. 
RETURN FALSE; 


'Now gongece major section He ed ty es 
A B CSCT_TYP2) 


i SIDE EFFECTS: None 


MEWN 0 OONOUSWN CO OONOUS WN (OVD ONOUS WH 


POPOPOPIWEGIPIPOPONIWI APDIP DINPINIAIAIPIPUNPONYININPIDINININIDD 4 9 9 9 9 9 SS SS SS SS 


Re Be Be Be Be Se Se Se Se Be Se Se Se Be Se Fe Se Se Ge Se Fe Ge Se Se Ge Fe Se Se Ge Se Se Se Se Ge Ge oe SHS Ss Se Se Se Se Se ee Fe Se Se eee Se Se Fe Geese Seas 


eal enh eel cath eh ee ee ce ee cee ee ce ch ee ee ae ee et ee ce ea i cl cl el al ee cl el ee ec eo ee ei ee eae ec ce ed ei ei ed cd 


6 IF (.PAGE_A CSCT_TYP) EQL .PAG a 
i r jAce there major sections, are they the same? 
9 6 ‘Both pages are from the same major type of section. : 
0 67 ‘It can also be that there are no major sections, and that will 
1 68 pet taken care of by all these tests being not applicable. 
; 69 IF (.PAGE_A CSCT_TYPJ EQL SCT_CHAPT) 
Z 4 ([PAGE_A CSCT_CHAPT_DJ NEQ .PAGE_B CSCT_CHAPT_D)) 
5 By ‘Both chapters, but different display characteristics 
6 7 ' RETURN FALSE 
7 74 ELSE | 


1b-sep-1984 04:64:34 AX-11 Bliss-32 V4.0-742 Page ; 


v04-000 Routine DPSEQL ~Sep- RUNOFF .SRCIPAGCMP_BLI:1 (4) 
> 148 75 IF (.PAGE_A CSCT_TYP] EQL SCT_APPEND) : 
; 149 f wenn? ([PAGE_A-CSCT_APPEN_DJ NEQ .PAGE_B CSCT_APPEN_DJ) ; 
4 0 73 cee ht TURN PRES “*** but different display characteristics 
: 154 Bt IF (.PAGE_A CSCT_TYP] EQL SCT_INDEX) | ; 
; 13? fi - yh (TPAGE_A CSCT_INDEX_DJ NEQ .PAGE_B CSCT_INDEX_DJ) | : 
: 157 0284 'Both indexes, but different display characteristics ; 
; 138 6 i RETURN FALSE : 
: 160 87 INo diff s found : 
: 161 0288 'This can banees qT there are are no major sections, or 3 
3 166 8 9 jeeth pe es ave different types of major sections. : 
. ! Oo 
: 164 0291 ? ‘Avoid compile complaint. ; 
3; 165 344 2 RETURN FALSE 3 
: 166 0293 1 END; ‘End of DSPEQL : 
.TITLE PAGCMP F 
“IDENT \V04-000\ : 
.PSECT $CODE$,NOWRT,2 : 
0004 00000 .ENTRY DSPEQL, Save R2 : 0219 ; 
50 04 Ac 7D 00002 OVO. PAGE_A, RO : 0949 : 
52 61 60 BD 00006 XORB3 (RO); (R1), R2 : : 
FO. BF 52 93 OO00A BITB R2, #240 : ; 
SA 12 0000 BNEQ 5$ : ; 
02 AO B65 0001 TSTW  2(RO) > 0255 : 
10 13 0001 BEQL «1 : 3 
02 Al 85 0001 TSTW 21) : 0256 ; 
0B 13 00018 BEQL =s1$ F ; 
52 Oc al 0c Ad 8p O001A XORB3 12(RO), 12(R1), R2 : 0257 ; 
OF 5¢ 93 00020 BITB R2, #15 : : 
45 12 00023 BNEQ 5$ : : 
52 61 60 80 99 5 18: XORB3 (RO), (R1), R2 : 0263 : 
OF 32 9 0029 BITB R2, #15 : ; 
C 12 0002C BNEQ 5$ : : 
01 60 04 00 FD 6008 CMPZ7V #0, #4, (RO), #1 : 0269 : 
C 5 BNEQ 2$ 3 $ 
52 Oc al 0c Ad 8 00 XORB3 12(RO) 12(R1), R2 > 0270 : 
FOF 32 93 00 ITB = R2, #240 ; : 
12 0003F BNEQ 5$ ; : 
03 60 04 0 FD stk 2$: CMPZV #0, #4, (RO), #3 ; 0275 ; 
52 OD Al OD AD 8 § 28 XORB3 13(RO), 13(R1), R2 > 0276 : 
OF 32 93 O04E BITB R2, #15 ; : 
17 12 00051 BNEQ 5$ ; : 
02 60 04 00 FD a8 3$: CMP ZV #0, #4, (RO), #2 ; 0281 : 
52 OD Al OD A 005A XORB3 13mg) 13(R1), R2 > 0282 : 
FOO BF eS 8 0060 ITB = R2, #240 : ; 


1 
ec 1b-sep-19 
v04-000 Routine DPSEQL 14-Sep-19 

50 $i aes 4$: 
ba 088 i 
50 Be V4 5$ 
4 0006C 
; Routine Size: 109 bytes, Routine Base: S$CODE$S + 0000 


; 167 0294 1 


Be 93:67: 


38 eae Bliss-32 V4.0-74 
:37 RUNOFF ..SRCJPAGCMP.BLI; 
5$ 

#1, RO 

RO 


kK 1 
PAGCMP 16-Sep-1984 01:24:54 AX-11 Bliss-32 V4.0-74 Page 7 PAG 
v04-000 Routine PAGEQL 12-08-1382 94:83:39 RUNOFF .SRCJPAGCMP.BLI; 9° 65) v04 
169 XSBTTL "Routine PAGEQL' 
170 GLOBAL ROUTINE PAGEQL (PAGE_A, PAGE_B, DISPLAY) = 


ae 
FUNCTIONAL DESCRIPTION: 


PAGEQL compares the pages represented by PAGE_A and PAGE_B 
and returns TRUE if they are equal. Otherwise it returns FALSE. 


FORMAL PARAMETERS: 
PAGE_A and PAGE 


| 


B are the pages to be compared. 
If DISPLAY is TRUE, the disp ay characteristics of the pages 
s 


are taken into account, otherwise not. 
IMPLICIT OUTPUTS: None 


ROUTINE VALUE: 
COMPLETION CODES: 


| 
| 
Returns TRUE if the pages are the same, else FALSE. 
SIDE EFFECTS: None | 
| 
| 
| 


' 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
IMPLICIT INPUTS: None 
i 
i 
i 
i 
i 
i 
i 
' 
i 
le 


BEGIN 

MAP 
PAGE_A : REF PAGE_DEFINITION, 
PAGE-B : REF PAGE~DEFINITION: 


IF .DISPLAY 
IF NOT DSPEQL (.PAGE_A, .PAGE_B) 
THEN 


WARIO PIPINPINPINININIDY 2 2 2 OO OS MH QDOOODOOOOCOCOOOO 


QUE WN | 0 OONAUE WN 0 OONAU EWN (OO ODNOUE WN 
OOOO UE WD $$ 0 OONO VF WD 0 OONOAUES WN OOONOUE Wn O0@ 
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33 
33 'Dis Loy characteristics don't match 
q 33 RETURN FALSE; 
9 33 RETURN (.PAGE_A CSCT_TYP] EQL .PAGE_B CSCT_TYP] AND 
0 33 .PAGE_A tsr Ste PAGE] EQL .PAGE_B CSCT_SUB_PAGE] AND 
1 33 -PAGE-A SCTINUMBER} EQL .PAGE_B-CSCT_NOMBER) A 
; $3 -PAGE-A CSCT_PAGE] EQL .PAGE_B-CSCT_PAGE)) | 
4 34 END; ‘End of PAGEQL | 
003¢ 00000 -ENTRY PAGEQL, Save R2,R3.R4,R5 7 0296 
0B oc AC 9 0002 BLBC DISPLAY, ; 8 8 
7E 04 ac 7D 006 OVO PAGE_A, -(SP) : 0 
85 AF 08 FB A CALLS "2, BSP : 
49 é O0E BLBC R ; 
53 04 AC DO 00011 1$: MOVL PAGE_A, R3 > 0335 


1 
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SCODES + 006D 


Routine Base: 


1 


93 bytes, 


0341 


3; Routine Size: 


v04-000 Routine PAGFND 7 RUNOFF ..SRCJPAGCMP.BLI; 


ZSBITL "Routine PAGFND' 
GLOBAL ROUTINE PAGFND (PAGEN, PAGE_LIST, COUNT, DISPLAY) = 
44 


FUNCTIONAL DESCRIPTION: 


PAGCMP 16- sep-1 384 9: 63: 33 AX-11 Bliss-32 V4.0- th Page q 


| 
PAGFND searches through a List of pages to find one which matches. 

FORMAL PARAMETERS: 

! PAGEN is the page number to be found. 

: PAGE _LIST is the List of page numbers to be searched. 

; COUNT is the number of ie es in PAGE_LIST to be searched. 

: If UDISPLAY is TRUE, the display charaatirtantes of the pages are 

taken into account, otherwise not. 

IMPLICIT INPUTS: None 

} IMPLICIT OUTPUTS: None 


i ROUTINE VALUE: 
i COMPLETION CODES: 


Returns 0 if no match was found. 
Returns the number of pages that needed to be compared before 
a match was found. This is always at least 1. 


SIDE EFFECTS: None 


SERRE SS EWN WWIWIWIIINININININININININN SS 
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WAAN NAAN AAAI WWW WANNA NAW 
009 09 09 09 00 00 NI I INN NS SNS NN NIP AAA AAA A MIMIIUNIIUTIT 
AUF WR HO OONAUES WIN $9 OONOA UE WD) $0 OONAUES WIR OOONOULS wr 
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BEGIN 
4 MAP 
50 PAGEN : REF PAGE_DEFINITION, 
21 PAGE_LIST : REF BLOCKVECTOR (1, PAGE_SCT_SIZE); 
35 INCR I FROM 0 TO .COUNT - 1 DO 
$2 IF PAGEQL (.PAGEN, PAGE_LIST C.1, SCT_TYPJ, .DISPLAY) 
4 RETURN (.1] + 1); 
2p RETURN 0; 'Not found. 
61 END; !End of PAGFND 
0004 00000 -ENTRY PAGFND, Save R2 : 0343 
52 01 CE 0000 MNEGL #1, I : o388 
1A 11 0000 BRB ; 
10 Ac bp 980 1$: PUSHL DISPLAY : 
50 52 04 OA ASHL #4, 1, R 3 
! 08 BC40 9F 9005 PUSHAB aPAGE-LISTCRO) ; 
4 AC OO 1 PAGEN 3 


N 1 
PAGCMP 16-Sep-1984 01:24:54 AX-11 Bliss-32 V4.0-74 
v04-000 Routine PAGFND 127808-1 382 93:89:39 RUNOFF .SRCJPAGCMP.BLI; 
BA AF 9 4 13 CALLS #3, PAGEQL 
92 3 1 BLBC RO, 2 
0 01 =A 5 1¢ MOVAB 1(R2), RO 
E1 52 0c af F2 00021 2$: AOBLSS COUNT, I, 1$ 
50 D4 000 g CLRL RO 
04 000 RET 
; Routine Size: 41 bytes, Routine Base: S$CODE$ + OOCA 
H 6¢ ttt 1 
; 26 0386 1 END 'End of module 
; 264 0389 0 ELUDOM 
; PSECT SUMMARY 
: Name Bytes Attributes 
: SCODES 243 NOVEC,NOWRT, RD , EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
: Library Statistics 
Bi he ea ae Fear salen 2 een Syabol$ oco-ce-- Pages Processing 
3 File Total Loaded Percent Mapped Time 
: -$255$DUA28: CSYSLIBIXPORT.L32;1 590 0 0 252 00:00.1 
; 7$255$DUA28: CRUNOFF .SRCIDSRLIB.L32;1 1248 16 1 8b 00:00.3 
: COMMAND QUALIFIERS 
: BLISS/CHECK=(FIELD, INJTIAL,OPTIMIZE)/LIS=LIS$:PAGCMP/OBJ=OBJ$:PAGCMP MSRC$:PAGCMP/UPDATE=(ENHS$:PAGCMP) 
; Size: 243 code + 0 data bytes 
; Run Time: :06. 
; Elapsed Time: $19-9 


6 
; Lexemes/CPU-Min: 14971 
: Used: 52 pages 


; Lines/CPU Min: 
: 1 
: Compilation Complete 


ENT CORPORATION 
ND PROPRIETARY 
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